package Run;

use DBI;
use strict;

sub ex
{
my ($sql_stmnt,$dbh) =@_;
my $sth = $dbh->prepare("$sql_stmnt");
my $result = $sth->execute();
return ($sth,$result);
}

sub finish
{

my $sth = shift @_;
$sth->finish();
return;

}

1;
